The Database Object

    DBaseFile =

     Object

       PrevDirs  :StackObject;

       HaveNames,
       InEXE     :Boolean;

       DataSize  :Word;
       Compress,
       DirEntry  :Byte;

       FileName  :PathStr;
       FileStart,
       FileEnd   :LongInt;
       Dir       :DBaseMain;

       VerHi,
       VerLo     :Byte;

       Procedure Init;
       Procedure GotoDir           (Number:Word);
       Procedure DelDir            (Number:Word);
       Procedure AppendDir         (Var Data:DBaseDir);
       Procedure AdjustDirsAfter   (Offset,BySize:LongInt);
       Procedure AdjustStackAfter  (Offset,BySize:LongInt);
       Procedure DestroyDirs;

       Function  FindEXESignature  (LookFrom:LongInt;Var EndPtr:LongInt):Word;
       Function  WriteHeader       :Word;
       Function  FindDir           (Var Data:DBaseDir):Word;
       Function  SetDirFlag        (Name:String;Number:Word;Flag:Boolean):Word;

       Function  AddCompression    (FName:PathStr;Method:Byte):Word;
       Function  CreateDatabase    (FName:PathStr;NameOpt:Boolean):Word;
       Function  OpenDatabase      (FName:PathStr;DStart,DEnd:LongInt):Word;
       Function  CloseDatabase     :Word;
       Function  CrossIntoDatabase (Name:String;Number:Word):Word;
       Function  CrossOutOfDatabase:Word;

       Function  BlockInsert       (Offset:LongInt;Data:Pointer;Size:Word):Word;
       Function  BlockOverWrite    (Offset:LongInt;Data:Pointer;Size:Word):Word;
       Function  BlockDelete       (Offset:LongInt;             Size:Word):Word;

       Function  ReadDir           :Word;
       Function  WriteDir          :Word;

       Function  NewData           (Name:String;Number:Word;Data:Pointer;Size:Word):Word;
       Function  ModData           (Name:String;Number:Word;Data:Pointer):Word;
       Function  GetData           (Name:String;Number:Word;Data:Pointer):Word;
       Function  DelData           (Name:String;Number:Word):Word;

       Function  NewDataFile       (Name:String;Number:Word;FName:String):Word;
       Function  ModDataFile       (Name:String;Number:Word;FName:String):Word;
       Function  GetDataFile       (Name:String;Number:Word;FName:String):Word;

       Function  ModEXE            (Offset:LongInt;Data:Pointer;Size:Word):Word;

       Private

       F         :File;

     End;